﻿Public Class F02_M_reverso_

    Private Sub btnAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnverso.Click
        Me.Close()
        F02_M_anverso_.Show()

    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        Dim oF02MNegocios As New Negocios.NF02_MR
        Dim oF02M As New Entidades.EF02Vehiculos
        oF02M.diaorde = UCase(txtdiaorden.Text)
        oF02M.mesorde = UCase(txtmesorden.Text)
        oF02M.añoorde = UCase(txtañoorden.Text)
        oF02M.diaalt = UCase(txtdiaalta.Text)
        oF02M.mesalt = UCase(txtmesalta.Text)
        oF02M.añoalt = UCase(txtañoalta.Text)
        oF02M.apenomtitula = UCase(txtapenomtitular.Text)
        oF02M.juzgad = UCase(txtjuzgado.Text)
        oF02M.secretari = UCase(txtsecretaria.Text)
        oF02M.argdnii = UCase(txtargdni.Text)
        oF02M.arglee = UCase(txtargle.Text)
        oF02M.arglcc = UCase(txtargle.Text)
        oF02M.extrdnii = UCase(txtextrdni.Text)
        oF02M.extrcii = UCase(txtextrci.Text)
        oF02M.extrpasapp = UCase(txtpasap.Text)
        oF02M.numdocumentoo = UCase(txtnumdocumento.Text)
        oF02M.autoridadpai = UCase(txtautoridadpais.Text)
        oF02M.personeri = UCase(txtpersonería.Text)
        oF02M.numins = UCase(txtnuminsc.Text)
        oF02M.diains = UCase(txtdiainsc.Text)
        oF02M.mesins = UCase(txtmesinsc.Text)
        oF02M.añoins = UCase(txtañoinsc.Text)
        oF02M.porcentajeti = UCase(txtporcentajetit.Text)
        oF02M.apenomti = UCase(txtapenomtit.Text)
        oF02M.calleti = UCase(txtcalletit.Text)
        oF02M.dniti = UCase(txtdnitit.Text)
        oF02M.leti = UCase(txtletit.Text)
        oF02M.lcti = UCase(txtlctit.Text)
        oF02M.dniextrti = UCase(txtdniextrtit.Text)
        oF02M.ciextrti = UCase(txtciextrtit.Text)
        oF02M.pasapti = UCase(txtpasaptit.Text)
        oF02M.numdocti = UCase(txtnumdoctit.Text)
        oF02M.autoridadti = UCase(txtautoridadtit.Text)
        oF02M.dianacti = UCase(txtdianactit.Text)
        oF02M.mesnacti = UCase(txtmesnactit.Text)
        oF02M.añonacti = UCase(txtañonactit.Text)
        oF02M.solteroti = UCase(txtsolterotit.Text)
        oF02M.casadoti = UCase(txtcasadotit.Text)
        oF02M.viudoti = UCase(txtviudotit.Text)
        oF02M.divti = UCase(txtdivtit.Text)
        oF02M.numnupciati = UCase(txtnumnupciatit.Text)
        oF02M.apenomconyti = UCase(txtapenomconytit.Text)
        oF02M.perti = UCase(txtperstit.Text)
        oF02M.inscti = UCase(txtinsctit.Text)
        oF02M.diacreacionti = UCase(txtdiacreaciontit.Text)
        oF02M.mescreacionti = UCase(txtmescreaciontit.Text)
        oF02M.añocreacionti = UCase(txtañocreaciontit.Text)
        oF02M.porcentajecon = UCase(txtporcentajecond.Text)
        oF02M.apenomcon = UCase(txtapenomcond.Text)
        oF02M.callecon = UCase(txtcallecond.Text)
        oF02M.dnicon = UCase(txtdnicond.Text)
        oF02M.lecon = UCase(txtlecond.Text)
        oF02M.lccon = UCase(txtlccond.Text)
        oF02M.dniextrcon = UCase(txtdniextrcond.Text)
        oF02M.ciextrcon = UCase(txtciextrcond.Text)
        oF02M.pasapcon = UCase(txtpasapcond.Text)
        oF02M.numdoccon = UCase(txtnumdoccond.Text)
        oF02M.autoridadcon = UCase(txtautoridadcond.Text)
        oF02M.dianaccon = UCase(txtdianaccond.Text)
        oF02M.mesnaccon = UCase(txtmesnaccond.Text)
        oF02M.añonaccon = UCase(txtañonaccond.Text)
        oF02M.solterocon = UCase(txtsolterocond.Text)
        oF02M.casadocon = UCase(txtcasadocond.Text)
        oF02M.viudocon = UCase(txtviudocond.Text)
        oF02M.divcon = UCase(txtdivcond.Text)
        oF02M.numnupciacon = UCase(txtnumpuciacond.Text)
        oF02M.apenomconycon = UCase(txtapenomconycond.Text)
        oF02M.percon = UCase(txtperscond.Text)
        oF02M.insccon = UCase(txtinsccond.Text)
        oF02M.diacreacioncon = UCase(txtdiacreacioncond.Text)
        oF02M.mescreacioncon = UCase(txtmescreacioncond.Text)
        oF02M.añocreacioncon = UCase(txtañocreacioncond.Text)
        oF02M.afectacioness = UCase(txtafectaciones.Text)
        oF02M.apenomven = UCase(txtapenomvend.Text)
        oF02M.fechatrans = UCase(txtfechatransf.Text)
        oF02M.numasignad = UCase(txtnumasignado.Text)
        oF02M.numchasisasignad = UCase(txtnumchasisasignado.Text)
        oF02M.observacione = UCase(txtobservaciones.Text)
        oF02M.luga = UCase(txtlugar.Text)
        oF02M.diaa = UCase(txtdia.Text)
        oF02M.mess = UCase(txtmes.Text)
        oF02M.añoo = UCase(txtaño.Text)
        oF02M.autoriz = UCase(txtautoriza.Text)
        oF02M.docc = UCase(txtdoc.Text)


        Try
            If oF02MNegocios.guardarF02MR(oF02M) Then
                MsgBox("La carga ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click
        Dim oF02MNegocios As New Negocios.NF02_MR
        Dim oF02M As New Entidades.EF02Vehiculos
        oF02M.diaorde = UCase(txtdiaorden.Text)
        oF02M.mesorde = UCase(txtmesorden.Text)
        oF02M.añoorde = UCase(txtañoorden.Text)
        oF02M.diaalt = UCase(txtdiaalta.Text)
        oF02M.mesalt = UCase(txtmesalta.Text)
        oF02M.añoalt = UCase(txtañoalta.Text)
        oF02M.apenomtitula = UCase(txtapenomtitular.Text)
        oF02M.juzgad = UCase(txtjuzgado.Text)
        oF02M.secretari = UCase(txtsecretaria.Text)
        oF02M.argdnii = UCase(txtargdni.Text)
        oF02M.arglee = UCase(txtargle.Text)
        oF02M.arglcc = UCase(txtargle.Text)
        oF02M.extrdnii = UCase(txtextrdni.Text)
        oF02M.extrcii = UCase(txtextrci.Text)
        oF02M.extrpasapp = UCase(txtpasap.Text)
        oF02M.numdocumentoo = UCase(txtnumdocumento.Text)
        oF02M.autoridadpai = UCase(txtautoridadpais.Text)
        oF02M.personeri = UCase(txtpersonería.Text)
        oF02M.numins = UCase(txtnuminsc.Text)
        oF02M.diains = UCase(txtdiainsc.Text)
        oF02M.mesins = UCase(txtmesinsc.Text)
        oF02M.añoins = UCase(txtañoinsc.Text)
        oF02M.porcentajeti = UCase(txtporcentajetit.Text)
        oF02M.apenomti = UCase(txtapenomtit.Text)
        oF02M.calleti = UCase(txtcalletit.Text)
        oF02M.dniti = UCase(txtdnitit.Text)
        oF02M.leti = UCase(txtletit.Text)
        oF02M.lcti = UCase(txtlctit.Text)
        oF02M.dniextrti = UCase(txtdniextrtit.Text)
        oF02M.ciextrti = UCase(txtciextrtit.Text)
        oF02M.pasapti = UCase(txtpasaptit.Text)
        oF02M.numdocti = UCase(txtnumdoctit.Text)
        oF02M.autoridadti = UCase(txtautoridadtit.Text)
        oF02M.dianacti = UCase(txtdianactit.Text)
        oF02M.mesnacti = UCase(txtmesnactit.Text)
        oF02M.añonacti = UCase(txtañonactit.Text)
        oF02M.solteroti = UCase(txtsolterotit.Text)
        oF02M.casadoti = UCase(txtcasadotit.Text)
        oF02M.viudoti = UCase(txtviudotit.Text)
        oF02M.divti = UCase(txtdivtit.Text)
        oF02M.numnupciati = UCase(txtnumnupciatit.Text)
        oF02M.apenomconyti = UCase(txtapenomconytit.Text)
        oF02M.perti = UCase(txtperstit.Text)
        oF02M.inscti = UCase(txtinsctit.Text)
        oF02M.diacreacionti = UCase(txtdiacreaciontit.Text)
        oF02M.mescreacionti = UCase(txtmescreaciontit.Text)
        oF02M.añocreacionti = UCase(txtañocreaciontit.Text)
        oF02M.porcentajecon = UCase(txtporcentajecond.Text)
        oF02M.apenomcon = UCase(txtapenomcond.Text)
        oF02M.callecon = UCase(txtcallecond.Text)
        oF02M.dnicon = UCase(txtdnicond.Text)
        oF02M.lecon = UCase(txtlecond.Text)
        oF02M.lccon = UCase(txtlccond.Text)
        oF02M.dniextrcon = UCase(txtdniextrcond.Text)
        oF02M.ciextrcon = UCase(txtciextrcond.Text)
        oF02M.pasapcon = UCase(txtpasapcond.Text)
        oF02M.numdoccon = UCase(txtnumdoccond.Text)
        oF02M.autoridadcon = UCase(txtautoridadcond.Text)
        oF02M.dianaccon = UCase(txtdianaccond.Text)
        oF02M.mesnaccon = UCase(txtmesnaccond.Text)
        oF02M.añonaccon = UCase(txtañonaccond.Text)
        oF02M.solterocon = UCase(txtsolterocond.Text)
        oF02M.casadocon = UCase(txtcasadocond.Text)
        oF02M.viudocon = UCase(txtviudocond.Text)
        oF02M.divcon = UCase(txtdivcond.Text)
        oF02M.numnupciacon = UCase(txtnumpuciacond.Text)
        oF02M.apenomconycon = UCase(txtapenomconycond.Text)
        oF02M.percon = UCase(txtperscond.Text)
        oF02M.insccon = UCase(txtinsccond.Text)
        oF02M.diacreacioncon = UCase(txtdiacreacioncond.Text)
        oF02M.mescreacioncon = UCase(txtmescreacioncond.Text)
        oF02M.añocreacioncon = UCase(txtañocreacioncond.Text)
        oF02M.afectacioness = UCase(txtafectaciones.Text)
        oF02M.apenomven = UCase(txtapenomvend.Text)
        oF02M.fechatrans = UCase(txtfechatransf.Text)
        oF02M.numasignad = UCase(txtnumasignado.Text)
        oF02M.numchasisasignad = UCase(txtnumchasisasignado.Text)
        oF02M.observacione = UCase(txtobservaciones.Text)
        oF02M.luga = UCase(txtlugar.Text)
        oF02M.diaa = UCase(txtdia.Text)
        oF02M.mess = UCase(txtmes.Text)
        oF02M.añoo = UCase(txtaño.Text)
        oF02M.autoriz = UCase(txtautoriza.Text)
        oF02M.docc = UCase(txtdoc.Text)



        Try
            If oF02MNegocios.guardarF02MR(oF02M) Then
                MsgBox("La edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        txtdiaorden.Text = ""
        txtmesorden.Text = ""
        txtañoorden.Text = ""
        txtdiaalta.Text = ""
        txtmesalta.Text = ""
        txtañoalta.Text = ""
        txtapenomtitular.Text = ""
        txtjuzgado.Text = ""
        txtsecretaria.Text = ""
        txtargdni.Text = ""
        txtargle.Text = ""
        txtargle.Text = ""
        txtextrdni.Text = ""
        txtextrci.Text = ""
        txtpasap.Text = ""
        txtnumdocumento.Text = ""
        txtautoridadpais.Text = ""
        txtpersonería.Text = ""
        txtnuminsc.Text = ""
        txtdiainsc.Text = ""
        txtmesinsc.Text = ""
        txtañoinsc.Text = ""
        txtporcentajetit.Text = ""
        txtapenomtit.Text = ""
        txtcalletit.Text = ""
        txtdnitit.Text = ""
        txtletit.Text = ""
        txtlctit.Text = ""
        txtdniextrtit.Text = ""
        txtciextrtit.Text = ""
        txtpasaptit.Text = ""
        txtnumdoctit.Text = ""
        txtautoridadtit.Text = ""
        txtdianactit.Text = ""
        txtmesnactit.Text = ""
        txtañonactit.Text = ""
        txtsolterotit.Text = ""
        txtcasadotit.Text = ""
        txtviudotit.Text = ""
        txtdivtit.Text = ""
        txtnumnupciatit.Text = ""
        txtapenomconytit.Text = ""
        txtperstit.Text = ""
        txtinsctit.Text = ""
        txtdiacreaciontit.Text = ""
        txtmescreaciontit.Text = ""
        txtañocreaciontit.Text = ""
        txtporcentajecond.Text = ""
        txtapenomcond.Text = ""
        txtcallecond.Text = ""
        txtdnicond.Text = ""
        txtlecond.Text = ""
        txtlccond.Text = ""
        txtdniextrcond.Text = ""
        txtciextrcond.Text = ""
        txtpasapcond.Text = ""
        txtnumdoccond.Text = ""
        txtautoridadcond.Text = ""
        txtdianaccond.Text = ""
        txtmesnaccond.Text = ""
        txtañonaccond.Text = ""
        txtsolterocond.Text = ""
        txtcasadocond.Text = ""
        txtviudocond.Text = ""
        txtdivcond.Text = ""
        txtnumpuciacond.Text = ""
        txtapenomconycond.Text = ""
        txtperscond.Text = ""
        txtinsccond.Text = ""
        txtdiacreacioncond.Text = ""
        txtmescreacioncond.Text = ""
        txtañocreacioncond.Text = ""
        txtafectaciones.Text = ""
        txtapenomvend.Text = ""
        txtfechatransf.Text = ""
        txtnumasignado.Text = ""
        txtnumchasisasignado.Text = ""
        txtobservaciones.Text = ""
        txtlugar.Text = ""
        txtdia.Text = ""
        txtmes.Text = ""
        txtaño.Text = ""
        txtautoriza.Text = ""
        txtdoc.Text = ""
    End Sub

    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01M.Click
        F01_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub
End Class
